﻿Public Class clsInhTrKontrola
    Inherits clsTrKontrola

#Region "Attributes"

    Private mvarPracownik As clsPracownik
    Private mvarPakowanie As clsPakowanie
    Private mvarOpcja As clsTrOpcje
    Private mvarZwickUstawienia As clsTrZwickUstawienie

#End Region

#Region "Properties"

    Public Property Pracownik() As clsPracownik
        Get
            Return mvarPracownik
        End Get
        Set(ByVal value As clsPracownik)
            mvarPracownik = value
        End Set
    End Property

    Public Property Pakowanie() As clsPakowanie
        Get
            Return mvarPakowanie
        End Get
        Set(ByVal value As clsPakowanie)
            mvarPakowanie = value
        End Set
    End Property

    Public Property Opcje() As clsTrOpcje
        Get
            Return mvarOpcja
        End Get
        Set(ByVal value As clsTrOpcje)
            mvarOpcja = value
        End Set
    End Property

    Public Property ZwickUstawienia() As clsTrZwickUstawienie
        Get
            Return mvarZwickUstawienia
        End Get
        Set(ByVal value As clsTrZwickUstawienie)
            mvarZwickUstawienia = value
        End Set
    End Property

#End Region

#Region "Methods"

    Public Sub New()
        MyBase.New()
        mvarPracownik = New clsPracownik()
        mvarPakowanie = New clsPakowanie()
        mvarOpcja = New clsTrOpcje()
        mvarZwickUstawienia = New clsTrZwickUstawienie()
    End Sub

    Public Sub New(ByVal ID As Integer, ByVal lvarDbHolder As clsDataBase)
        MyBase.New(ID, lvarDbHolder, VAR_ERROR_HANDLER)
        mvarPracownik = New clsPracownik(CStr(MyBase.PracownikId), lvarDbHolder, VAR_ERROR_HANDLER)
        If MyBase.PakowanieId <> String.Empty Then
            mvarPakowanie = New clsPakowanie(MyBase.PakowanieId, lvarDbHolder, VAR_ERROR_HANDLER)
        End If

        mvarOpcja = New clsTrOpcje(MyBase.OpcjaId, lvarDbHolder, VAR_ERROR_HANDLER)
        If MyBase.ZwickUstawienieId <> String.Empty Then
            mvarZwickUstawienia = New clsTrZwickUstawienie(CInt(MyBase.ZwickUstawienieId), lvarDbHolder, VAR_ERROR_HANDLER)
        End If

    End Sub

    Public Overloads Sub Save(ByVal lvarDbHolder As clsDataBase)
        MyBase.Save(lvarDbHolder, VAR_ERROR_HANDLER)
    End Sub

    Public Overloads Sub Delete(ByVal lvarDbHolder As clsDataBase)
        MyBase.Delete(lvarDbHolder, VAR_ERROR_HANDLER)
    End Sub


#End Region

End Class
